1 A$="26;>000000002020001700900000000:0032003<0>1002>0267:05868346110:04<60587<0<73<8?<00906953<8>0695<083069502>083>0045:04<13<4<:04:06<1041B<042:04:06<10580"
2 A$=A$&"041805<004<2045;"::CALL INIT::FOR I=1 TO LEN(A$)/2::CALL LOAD(9859+I),16*(ASC(SEG$(A$,I*2-1,1))-48)+ASC(SEG$(A$,I*2,1))-48)::NEXT I::CALL LOAD(-31804,38,154)